n=30;
carpets=[|0,7,96,99|
94,73,54,26|
0,46,8,93|
71,20,80,92|
8,62,2,95|
16,20,45,0|
1,58,77,72|
12,85,95,63|
10,37,94,61|
48,87,7,82|
11,4,87,86|
53,24,12,24|
14,86,53,88|
16,80,88,10|
11,51,68,52|
82,37,73,81|
1,44,93,73|
47,9,6,70|
14,66,43,23|
15,89,100,100|
73,63,78,84|
52,84,85,27|
52,2,63,13|
27,12,54,70|
48,12,18,42|
79,10,8,63|
45,38,6,35|
93,99,53,64|
29,76,86,15|
61,77,85,30|];
loc=[15,89];